home *** CD-ROM | disk | FTP | other *** search
/ NBC Slam Jams! / NBC Slam Jams!.iso / xtras / media_la / effector.cst / 00015_Script_Magnify < prev    next >
Text File  |  1997-09-30  |  2KB  |  52 lines
  1. -- Magnify
  2.  
  3.  
  4.  
  5.  
  6. Property magnification,pInterp
  7.  
  8. on getPropertyDescriptionList
  9.   if not alphamaniacCheck(the currentSpriteNum) then exit
  10.   
  11.   set pList=[:]
  12.   addProp pList,#magnification,[format:#integer,¼
  13.                                comment:"Enter Magnification:",¼
  14.                                Default:100,range:[min:100,max:500]]
  15.   addProp pList,#pInterp,[format:#symbol,¼
  16.                                comment:"Interpolation:",¼
  17.                                Default:#On,range:[#Off,#On,#Paused]]
  18.   
  19.   return pList
  20. end
  21.  
  22. on beginSprite me
  23.   set s=the spriteNum of me
  24.   if not alphaManiac(s) then exit
  25.   
  26.   set pInterp=interpolation(pInterp)
  27.   Magnify(sprite s,[percentage:magnification,interpolation:pInterp])
  28. end
  29.  
  30. on slideMagnify me, slider, p
  31.   set s=the spriteNum of me
  32.   if not alphaManiac(s) then exit
  33.   
  34.   setMagnification(me,((p*400) / 100) + 100)
  35. end 
  36.  
  37. on setMagnification me, val
  38.   set magnification=val
  39.   Magnify(sprite (the spriteNum of me),[percentage:magnification,interpolation:pInterp])
  40. end
  41.  
  42. on getBehaviorDescription me
  43.   set msg= "Turn your AlphaManiac into a cool magnifying glass!  This is best used with your AlphaMania castmember's drawMethod set to #apply."
  44.   put return & return after msg
  45.   put "Parameters:" & return & "-----------" & return  after msg
  46.   put "*  Magnification: 0 to 500" & return after msg
  47.   put "*   Interpolation:  On,Off,or While Paused" after msg
  48.   put return & "-----------" & return & return  & ">>>" && amTip()  after msg
  49.   return msg
  50. end
  51.  
  52.